VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BGuiaDetalle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvarnCodigo As Integer
Private mvarbProducto As bproducto
Private mvarbAlmDestino As balmacen
Private mvarnCantidad As Double
Private mvarnEstado As Integer
Private mvarobjguia As bguia

Public Property Get bguia() As bguia

    Set bguia = mvarobjguia

End Property

Public Property Set bguia(objguia As bguia)

    Set mvarobjguia = objguia

End Property

Private Sub Class_Initialize()
    Set mvarbProducto = New bproducto
    Set mvarbAlmDestino = New balmacen
    Set mvarobjguia = New bguia
End Sub
Private Sub Class_Terminate()
    Set mvarbProducto = Nothing
    Set mvarbAlmDestino = Nothing
    Set mvarobjguia = Nothing
End Sub
Public Property Get nCodigo() As Integer
    nCodigo = mvarnCodigo
End Property
Public Property Let nCodigo(ByVal nCodigo As Integer)
    mvarnCodigo = nCodigo
End Property
Public Property Get bproducto() As bproducto
    Set bproducto = mvarbProducto
End Property
Public Property Set bproducto(bproducto As bproducto)
    Set mvarbProducto = bproducto
End Property
Public Property Get bAlmDestino() As balmacen
    Set bAlmDestino = mvarbAlmDestino
End Property
Public Property Set bAlmDestino(bAlmDestino As balmacen)
    Set mvarbAlmDestino = bAlmDestino
End Property
Public Property Get nCantidad() As Double
    nCantidad = mvarnCantidad
End Property
Public Property Let nCantidad(ByVal nCantidad As Double)
    mvarnCantidad = nCantidad
End Property
Public Property Get nEstado() As Integer
    nEstado = mvarnEstado
End Property
Public Property Let nEstado(ByVal nEstado As Integer)
    mvarnEstado = nEstado
End Property
